Option Explicit

Private tipo As String
Private precio As Double

Public Property Get pTipo() As String
End Property

Public Property Let pTipo(ByVal t As String)
End Property

Public Property Get pPrecio() As Double
End Property

Public Property Let pPrecio(ByVal p As Double)
End Property

Public Function tostring()
End Function
